00100 BEGIN 00200 INTEGER X,Y; 00300 REAL Z; 00400 PRELOAD_WITH [10] 0,1,2,3,4,5,6,7,8,9,10; 00500 INTEGER ARRAY A[1:2,1:10] 00600 ; 00700 X←3 00800 Z←5.31 00900 WRITE(A) 01000 WRITE(A,X,Z) 01100 READ(Y) 01200 Y←2*Y 01300 WRITE(Y) 01400 END. 01500 G 01600 EXIT 01700 *G